(define-interface meta-interface
  (export define-class define-method new seq
	  (when :syntax)
	  (unless :syntax)
	  map for-each
	  first second third fourth fifth tail))

(define-structure meta meta-interface
  (open scheme nice-features list-library define-record-types
	signals				;for error
	i/o				;for force-output
	bitwise
	fluids
	formats				;for debugging
	tables
	handle conditions
	structure-refs)
  (access big-scheme)
  (files ;; Make Scheme look kind of like meta
         meta
	 classes
	 cs-stream
	 ;; The meta compiler
	 types
	 values
	 expressions
	 type-inference
	 simplify
	 parse
	 unparse
	 eval
	 compile
	 analyze
	 importing
	 standard-environment))
